home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Pllt' Maker.cpt / Pllt' Maker / card_3026.txt < prev    next >
Text File  |  1990-12-13  |  4KB  |  137 lines
  1. -- card: 3026 from stack: in
  2. -- bmap block id: 3176
  3. -- flags: 0000
  4. -- background id: 2811
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   show MenuBar
  9. end OpenCard
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: A003
  15. -- rect: left=14 top=307 right=329 bottom=114
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Make a 'pllt'
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   put numtochar(34) into quotes
  27.   put return & "  $" & quotes into newLine
  28.  
  29.   answer "What type of colors?" with "Courteous" or "Tolerant" or "Explicit"
  30.  
  31.   if it is "Courteous" then
  32.     put " 0000" into colorType
  33.   else
  34.     if it is "Tolerant" then
  35.       put " 0002" into colorType
  36.     else
  37.       put " 0008" into colorType
  38.     end if
  39.   end if
  40.   set the cursor to 4
  41.  
  42.   put "data 'pllt'  (128, " & quotes & "Full Gray Palette" & quotes & ")  {" into card field Palette
  43.  
  44.   put newLine & hex(256) && "0000 0000 0000 0000 0000 0000 0000" & quotes & newLine after card field Palette
  45.  
  46.   put colorType && "0000 0000 0000 0000" & quotes before newLine
  47.  
  48.   put 256 into counter
  49.   repeat 255
  50.     put (counter * 256)-1 into decimalNum
  51.     put Hex(decimalNum) into hexNum
  52.     put hexNum && hexNum && hexNum & newLine after card field Palette
  53.     subtract 1 from counter
  54.   end repeat
  55.  
  56.   put "0000 0000 0000 0000 0000 0000 0000 0000" & quotes & return & "};" after card field Palette
  57.  
  58.   beep 5
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 2 (field)
  64. -- low flags: 00
  65. -- high flags: 0007
  66. -- rect: left=3 top=24 right=300 bottom=334
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 0 / 0
  69. -- text alignment: 0
  70. -- font id: 22
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Palette
  75.  
  76.  
  77. -- part 3 (button)
  78. -- low flags: 00
  79. -- high flags: A003
  80. -- rect: left=118 top=307 right=329 bottom=232
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Edit 'pllt' Script
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   edit script of card button "Make a 'pllt'"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 4 (field)
  97. -- low flags: 01
  98. -- high flags: 0007
  99. -- rect: left=336 top=24 right=300 bottom=509
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 0
  103. -- font id: 3
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: 
  108.  
  109.  
  110. -- part 5 (button)
  111. -- low flags: 00
  112. -- high flags: A003
  113. -- rect: left=407 top=308 right=330 bottom=507
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Ballot
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   visual effect dissolve
  125.   go to card 2
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part contents for card part 4
  131. ----- text -----
  132. Hello!
  133.      I'm a doctoral candidate at the State University of New York at Buffalo, where I am Associate Director of the Center for Learning and Technology.  We at the CLT have several pieces of software rapidly nearing distribution readiness.  I'd appreciate your help in deciding how we should distribute them.  We need to make enough money from our software to support future projects, but we want to make our products available at as low a cost to users as possible.  We are strongly considering using the ‚ÄúShareWare‚Äù method of distribution, but are wary of the low ‚Äòhonesty‚Äô rate.  That is where this stack comes in.  Although we think it's a handy little utility, it is by no means a major piece of programming.  We therefore have nothing to lose if no one ever pays the ShareWare fee, so we are asking you, the ShareWare consuming public, to express your opinion with your vote.  If you think we should go the ShareWare route, then please send $1.00 to register this stack, and be placed on our mailing list (no hard sell here, we're a university, not a software company).  If you don't think we should go ShareWare, just vote ‚ÄúNo‚Äù and we'll put you on our mailing list whether you send the dollar or not.  You get to keep the stack either way, but if you send a buck with your vote (c'mon, it's only a dollar - and this stack probably saved you much more than that in time‚Ķ) you'll be helping us out.
  134.     Thanks for downloading the stack, reading this and voting!
  135.      --Ron
  136.  
  137.